start:
vrazm = 10'скорость размножения
CLS
SCREEN 12
DIM x(5000)
DIM y(5000)
DIM vy(5000)
DIM vx(5000)
DIM pr(5000)
DIM born(5000)
z = 1
FOR i = 1 TO 5000
x(i) = 0
y(i) = 0
vy(i) = 0
vx(i) = 0
pr(i) = 0
born(i) = 0
NEXT i
born(1) = 1
RANDOMIZE TIMER
'FOR i = 1 TO 5000
x(1) = INT(RND * 640)
y(1) = INT(RND * 480)
PSET (x(1), y(1))
'NEXT i  
FOR i = 1 TO 5000
vx(i) = 3 - (RND * 7)
vy(i) = 3 - (RND * 7)
NEXT i
sum = 1
LOCATE 1, 1
PRINT sum
back:
c$ = INKEY$
IF c$ <> "" THEN
IF ASC(c$) = 27 THEN
CLS
LOCATE 1, 1
PRINT "Еще? (y/n)"
INPUT "", c$
IF c$ = "n" THEN END
IF c$ = "y" THEN GOTO start
END IF
END IF
FOR i = 1 TO 5000
 
 IF born(i) = 1 THEN
 PRESET (x(i), y(i))
 pr(i) = pr(i) + 1
 IF pr(i) = vrazm THEN
  pr(i) = 0
  IF z = 5000 THEN GOTO pass
  FOR b = z TO 5000
  IF born(b) = 0 THEN
   born(b) = 1
   sum = sum + 1
   LOCATE 1, 1
   PRINT sum
   x(b) = x(i)
   y(b) = y(i)
   z = b
   EXIT FOR
  END IF
  NEXT b
 END IF
pass:
x(i) = x(i) + vx(i)
y(i) = y(i) + vy(i)
IF x(i) >= 640 OR x(i) <= 0 THEN vx(i) = -vx(i)
IF y(i) >= 480 OR y(i) <= 0 THEN vy(i) = -vy(i)
PSET (x(i), y(i))
END IF
NEXT i
FOR i = 1 TO 10: NEXT i
GOTO back